OFFSET
1,1
COMMENTS
A subsequence of 1, 11, 111, 1111, 2000, 10002, 10020, 10200, 11111,... which contains n such that A003132(n) = A055642(n). - R. J. Mathar, Nov 07 2011
EXAMPLE
a(2) = 102001 is in the sequence because 1^2+0^2+2^2+0^2+0^2+1^2 = 6 = length(a(2)).
MATHEMATICA
fQ[n_] := Plus @@ (IntegerDigits[n]^2) == IntegerLength[n]; Select[Prime[Range[100000000]], fQ] (* Robert G. Wilson v, Nov 07 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Nov 03 2011
STATUS
approved