# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a094879 Showing 1-1 of 1 %I A094879 #5 Dec 15 2017 17:36:40 %S A094879 1,10,12,14,15,16,18,34,57,74,75,78,91,94,100,102,105,108,121,122,123, %T A094879 126,128,140,142,146,148,160,161,165,166,168,182,183,188,213,216,217, %U A094879 234,275,297,301,324,327,341,387,412,413,415,418,432,450,453,455,458 %N A094879 Where 1's occur in A094830 (nonprimes that reach a prime in one step under iteration of "x -> x + sum of squares of digits of x"). %t A094879 Select[Range[500],!PrimeQ[#]&&PrimeQ[#+Total[IntegerDigits[#]^2]]&] (* _Harvey P. Dale_, Mar 15 2015 *) %K A094879 base,easy,nonn %O A094879 1,2 %A A094879 _Jason Earls_, Jun 15 2004 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE