|
| |
|
|
A048383
|
|
Replacing digits d in decimal expansion of n with d-th prime yields a square (0-th prime is 1).
|
|
2
| |
|
|
0, 13, 113, 2410, 4113, 6113, 8210, 14113, 23410, 28113, 33113, 34010, 35113, 51113, 62113, 71113, 76610, 81410, 93113, 101310, 117010, 123113, 242210, 253113, 279710, 298113, 300113, 351010, 513410, 529113, 544113, 616113, 634113
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
EXAMPLE
| E.g. 28113 = (2)(8)(1)(1)(3) -> (3)(19)(2)(2)(5) = 319225 = 565^2 and square.
|
|
|
MATHEMATICA
| Select[Range[0, 650000], IntegerQ[Sqrt[FromDigits[Flatten[IntegerDigits/@ (If[#==0, 1, Prime[#]]&/@IntegerDigits[#])]]]]&] (* From Harvey P. Dale, Mar 27 2011 *)
|
|
|
CROSSREFS
| Cf. A048380, A048384.
Sequence in context: A126534 A127827 A089569 * A156969 A016765 A115188
Adjacent sequences: A048380 A048381 A048382 * A048384 A048385 A048386
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com), Mar 15 1999.
|
| |
|
|
